perm filename DIFA[M11,LCS] blob
sn#373995 filedate 1978-08-02 generic text, type T, neo UTF8
1) M11A.F4[M11,LCS] and 2) M11A.F4[P11,LCS] 8-02-78 12:39 pages 1,1
**** File 1) M11A.F4[M11,LCS], Page 1 line 1
1) COMMENT ā VALID 00002 PAGES
1) C REC PAGE DESCRIPTION
1) C00001 00001
1) C00002 00002 CPASS3 PASS 3 MAIN PROGRAM
1) C00013 ENDMK
1) Cā;
1) CPASS3 PASS 3 MAIN PROGRAM
1) C *** MUSIC V ***
1) INTEGER PEAK,CONV
1) REAL NT
1) CXX DOUBLE PRECISION JFLNM,JTRNS,JBLA
1) DIMENSION T(50),TI(50),ITI(50)
1) CSS COMMON I(513) /P/P(50)/PARM/IP(20)/FINOUT/PEAK,RPEAK,NBUF
1) COMMON I(513) /P/P(50) /FINOUT/PEAK,RPEAK,NBUF
1) 1 /GENS/IGN(3200) /IRAN/IRAN /CONV/CONV,INIOUT,JFLNM
1) 1 /LFUNC/LFUNC
1) C NOPCD=NUM.OF OP CODES, ISRT=DEFAULT SMPL.RATE, LFUNC=FUNC ARRAY LENGTH,
1) DATA NOPCD/14/, ISRT/10000/, LFUNC/512/
1) 1 , NPAR/35/, NINS/27/, LBLK/512/
1) C NPAR=NUM. OF PARAMS/INST., NINS=NUM. OF INSTS., LBLK=LENGTH OF OUTPUT BLOCKS
1) COMMON /INS/INS(400),IDEF(100) /NT/NT(1000) /IOUT/IOUT(3072)
1) C INS=INSTRUMENT DEFINITIONS, IDEF=LOCATION TABLE, IOUT=OUTPUT BLOCK (B1āB6)(6*512)
1) EQUIVALENCE (I2,I(2)),(T3,T(3)),(T2,T(2)),(P3,P(3))
1) DATA JTRNS/'TRNS '/,JBLA/' '/
1) DATA IIIRD/976545367/
1) C INIALIZATION OF PIECE
1) C IIIRD - ARBITRARY STARTING NUMBER FOR SUBROUTINE RANDU
1) CXX IRAN=32767
1) CXX IRAN=I(7)+1
1) IRAN=IIIRD
1) NBUF=512
1) INIOUT=-1
1) C INIOUT IS TO INITIALIZE OUTPUT SYSTEM.
1) PEAK=0
1) CSS IPEAK=0
1) RPEAK=0
1) C IPEAK AND PEAK USED TO TYPE OUT AMPL. INFO. LATER.
**** File 2) M11A.F4[P11,LCS], Page 1 line 1
2) CPASS3 PASS 3 MAIN PROGRAM
2) C *** MUSIC V ***
2) C DATA SPECIFICATION
2) INTEGER PEAK,CONV
2) REAL NT
2) DIMENSION T(50),TI(50),ITI(50)
2) COMMON I(513) /P/P(50)/PARM/IP(20)/FINOUT/PEAK,NRSOR,IPEAK
2) 1 /GENS/IGN(3200) /IRAN/IRAN /CONV/CONV
2) COMMON /INS/INS(400),IDEF(100) /NT/NT(1000) /IOUT/IOUT(3072)
1) M11A.F4[M11,LCS] and 2) M11A.F4[P11,LCS] 8-02-78 12:39 pages 1,1
2) C INS=INSTRUMENT DEFINITIONS, IDEF=LOCATION TABLE, IOUT=OUTPUT BLOCK (B1āB6)(6*512)
2) EQUIVALENCE (IP9,IP(9)),(I2,I(2)),(I6,I(6)),(I5,I(5)),(T3,T(3))
2) 1,(T2,T(2)),(P3,P(3))
2) CC******* DATA IIIRD/Z5EECE66D/
2) DATA IIIRD/976545367/
2) C SET I ARRAY =0 (7/10/69)
2) CCC DATA I/4000*0/,I(4)/12800/
2) C**************
2) C INIALIZATION OF PIECE
2) C IIIRD - ARBITRARY STARTING NUMBER FOR SUBROUTINE RANDU
2) CCC DO 801 K=1,4000
2) CCC801 I(K)=0
2) CCC I(7)=IIIRD
2) IRAN=IIIRD
2) C****** SEE BLOCK DATA RE. SCALE FACTORS ********* IP(12)=2**8
2) CONV=-1
2) PEAK=0
2) CC NRSOR=0
2) IPEAK=0
2) C IPEAK AND PEAK USED TO TYPE OUT AMPL. INFO. LATER.
***************
**** File 1) M11A.F4[M11,LCS], Page 2 line 40
1) CXX REWIND NREAD
1) CXX REWIND NWRITE
1) 44 TYPE 401
1) ACCEPT 501,JFLNM,CONV
1) C TYPE <CR> FOR DEFAULT NAME(FOR21.DAT), ADD A NUM. TO WRITE SMPLS TO BE PLAYED.
1) IF(JFLNM.EQ.JBLA)JFLNM=JTRNS
1) CXX CALL OPEN(21,JFLNM,0,'RDO',,,'UNF')
1) CALL IFILE(21,JFLNM)
1) C OUTPUT IS ALWAYS NAMED 'TEST.DAT' FOR NOW.
1) 401 FORMAT(' TYPE FILE NAME'/)
1) 501 FORMAT(A5,5I)
1) I2=1
1) MS1=1
1) MS3=MS1+(NPAR*NINS)-1
1) MS2=NPAR
1) I(4)=ISRT
1) MOUT=1
1) C INITIALIZATION OF SECTION
**** File 2) M11A.F4[P11,LCS], Page 1 line 37
2) REWIND NREAD
2) REWIND NWRITE
2) 44 TYPE 401
2) ACCEPT 501 ,FLNM,IDSK
2) C TYPE 'PASS2' OR FILENAME + ANY POS.NUMB. TO WRITE SMPLS ON DSK.
1) M11A.F4[M11,LCS] and 2) M11A.F4[P11,LCS] 8-02-78 12:39 pages 2,1
2) IF(FLNM.EQ.' '.OR.FLNM.EQ.'PASS2')FLNM='FOR21'
2) IF(FLNM.NE.'CONV')GO TO 144
2) 901 CONV=0
2) C TYPE 'CONV' FOR 18BIT PACKED OUTPUT. 2 SMPLS/WD.
2) CALL PUTFILE('16')
2) INS(1)="525252525252
2) INS(2)=12800
2) INS(3)=1
2) INS(4)=1
2) INS(5)=33000
2) CALL FASTOU(INS,128)
2) IF(IDSK.EQ.0)GO TO 44
2) IDSK=0
2) GO TO 701
2) 144 IF(IDSK.NE.0)GO TO 901
2) CALL IFILE(21,FLNM)
2) CALL OFILE(23,'TEST')
2) CC GO TO 701
2) 401 FORMAT(' TYPE FILE NAME'/)
2) 501 FORMAT(A5,I)
2) CC601 IDSK=-1
2) CC701 SCLFT=IP(12)
2) 701 I2=1
2) CC I(2)=IP(4)
2) CC MS1=IP(7)
2) MS1=1
2) MS3=MS1+(IP(8)*IP9)-1
2) MS2=IP(8)
2) I(4)=IP(3)
2) MOUT=1
2) CC MOUT=IP(10)
2) C INITIALIZATION OF SECTION
***************
**** File 1) M11A.F4[M11,LCS], Page 2 line 63
1) DO 221 N1=1,NINS
1) 221 TI(N1)=90909.
**** File 2) M11A.F4[P11,LCS], Page 1 line 78
2) DO 221N1=1,IP9
2) 221 TI(N1)=90909.
***************
**** File 1) M11A.F4[M11,LCS], Page 2 line 71
1) 201 CALL ERROR(1)
1) GO TO 204
1) 202 IF(NOPCD-IOP)201,203,203
1) M11A.F4[M11,LCS] and 2) M11A.F4[P11,LCS] 8-02-78 12:39 pages 2,1
1) 203 GO TO (1,2,3,4,5,6,201,201,201,201,11,11),IOP
**** File 2) M11A.F4[P11,LCS], Page 1 line 85
2) 201 CALLERROR(1)
2) GO TO 204
2) 202 IF(IP(1)-IOP)201,203,203
2) 203 GO TO (1,2,3,4,5,6,201,201,201,201,11,11),IOP
***************
**** File 1) M11A.F4[M11,LCS], Page 2 line 82
1) IF(N1.EQ.8)NBUF=512+512*I(N1)
1) C SET BUFFER SIZE . (512=MONO, 1024=STEREO)
1) GO TO 204
**** File 2) M11A.F4[P11,LCS], Page 1 line 95
2) GO TO 204
***************
**** File 1) M11A.F4[M11,LCS], Page 2 line 94
1) 4 IVAR=P3
**** File 2) M11A.F4[P11,LCS], Page 1 line 104
2) CCC 283 CALLGEN3
2) CCC GO TO 204
2) CCC 284 CALLGEN4
2) CCC GO TO 204
2) CCC 285 CALLGEN5
2) CCC GO TO 204
2) 4 IVAR=P3
***************
**** File 1) M11A.F4[M11,LCS], Page 2 line 106
1) CALL ERROR(2)
1) C TOO MANY NOTES(27 LIMIT FOR NOW) TRYING TO PLAY AT ONCE.
1) TYPE 1230,NINS
1) GO TO 204
**** File 2) M11A.F4[P11,LCS], Page 1 line 121
2) CALLERROR(2)
2) C TOO MANY NOTES(27 LIMIT FOR NOW) TRYING TO PLAY AT ONCE.
2) TYPE 1230,IP(9)
2) GO TO 204
***************
**** File 1) M11A.F4[M11,LCS], Page 2 line 114
1) M4=N1+NPAR-1
1) DO 232N1=M1,M2
**** File 2) M11A.F4[P11,LCS], Page 1 line 129
1) M11A.F4[M11,LCS] and 2) M11A.F4[P11,LCS] 8-02-78 12:39 pages 2,1
2) M4=N1+IP(8)-1
2) DO 232N1=M1,M2
***************
**** File 1) M11A.F4[M11,LCS], Page 2 line 121
1) DO 235N1=1,NINS
1) IF(TI(N1)-90909.)235,234,235
**** File 2) M11A.F4[P11,LCS], Page 1 line 136
2) DO 235N1=1,IP9
2) IF(TI(N1)-90909.)235,234,235
***************
**** File 1) M11A.F4[M11,LCS], Page 2 line 127
1) CALL ERROR(3)
1) GO TO 204
**** File 2) M11A.F4[P11,LCS], Page 1 line 142
2) CALLERROR(3)
2) GO TO 204
***************
**** File 1) M11A.F4[M11,LCS], Page 2 line 132
1) M2=IFIX(P3)
**** File 2) M11A.F4[P11,LCS], Page 1 line 146
2) CQQ M2=IP(5)+IFIX(P3)
2) M2=IFIX(P3)
***************
**** File 1) M11A.F4[M11,LCS], Page 2 line 147
1) 300 INS(M1)=-1+(M5+101)*LFUNC
1) GO TO 216
1) 301 INS(M1)=-1+(M5+1)*LBLK
1) GO TO 216
**** File 2) M11A.F4[P11,LCS], Page 1 line 162
2) 300 INS(M1)=-1+(M5+101)*IP(6)
2) CCC 300 INS(M1)=-IP(2)+(M5+101)*IP(6)
2) GO TO 216
2) 301 INS(M1)=-1+(M5+1)*IP(14)
2) CC301 I(M1)=-IP(13)+(M5+1)*IP(14)
2) GO TO 216
***************
**** File 1) M11A.F4[M11,LCS], Page 2 line 155
1) C****** WHAT DOES THIS BIG NUM.(2**18) DO?? ***********
1) M11A.F4[M11,LCS] and 2) M11A.F4[P11,LCS] 8-02-78 12:39 pages 2,1
**** File 2) M11A.F4[P11,LCS], Page 1 line 172
2) CCC215 I(M1)=M5+262144
2) C****** WHAT DOES THIS BIG NUM.(2**18) DO?? ***********
***************
**** File 1) M11A.F4[M11,LCS], Page 2 line 165
1) DO 241N1=1,NINS
1) IF(TMIN-TI(N1))241,241,240
**** File 2) M11A.F4[P11,LCS], Page 1 line 182
2) DO 241N1=1,IP9
2) IF(TMIN-TI(N1))241,241,240
***************
**** File 1) M11A.F4[M11,LCS], Page 2 line 191
1) 266 IF(ISAM-LBLK)262,262,263
1) 262 I5=ISAM
**** File 2) M11A.F4[P11,LCS], Page 1 line 206
2) 266 IF(ISAM-IP(14))262,262,263
2) 262 I5=ISAM
***************
**** File 1) M11A.F4[M11,LCS], Page 2 line 195
1) 263 I5=LBLK
1) ISAM=ISAM-LBLK
1) 264 IF(I(8))290,290,291
**** File 2) M11A.F4[P11,LCS], Page 1 line 210
2) 263 I5=IP(14)
2) ISAM=ISAM-IP(14)
2) 264 IF(I(8))290,290,291
***************
**** File 1) M11A.F4[M11,LCS], Page 2 line 207
1) 268 DO 270 NS1=MS1,MS3,MS2
1) IF(NT(NS1)+1)271,270,271
**** File 2) M11A.F4[P11,LCS], Page 1 line 221
2) 268 DO 270NS1=MS1,MS3,MS2
2) IF(NT(NS1)+1)271,270,271
***************
**** File 1) M11A.F4[M11,LCS], Page 2 line 212
1) IGEN=IDEF(IGEN)
1) 272 I6=IGEN
1) 294 CALL FORSAM
1) M11A.F4[M11,LCS] and 2) M11A.F4[P11,LCS] 8-02-78 12:39 pages 2,1
1) 295 IGEN=INS(IGEN+1)
**** File 2) M11A.F4[P11,LCS], Page 1 line 226
2) CC IGEN=IP(5)+I(NS1)
2) IGEN=IDEF(IGEN)
2) 272 I6=IGEN
2) CC***** IF(I(IGEN)-101)293,294,294
2) CC***** 293 CALLSAMGEN(I)
2) C**** ABOVE FOR MACHINE LANG. UNIT GENERATORS *******
2) CC***** GO TO 295
2) 294 CALLFORSAM
2) 295 IGEN=INS(IGEN+1)
***************
**** File 1) M11A.F4[M11,LCS], Page 2 line 224
1) COMMON I(1)/P/ P(1) /FINOUT/PEAK,RPEAK
1) CSS COMMON I(1)/P/ P(1) /FINOUT/JPEAK,IPEAK
1) EQUIVALENCE (K,I),(P2,P(2))
**** File 2) M11A.F4[P11,LCS], Page 1 line 243
2) COMMON I(1)/P/ P(1) /FINOUT/JPEAK,NN,IPEAK
2) EQUIVALENCE (K,I),(P2,P(2))
***************
**** File 1) M11A.F4[M11,LCS], Page 2 line 229
1) IF(PEAK.LE.RPEAK)RETURN
1) CSS IF(JPEAK.LE.IPEAK)RETURN
1) TYPE 2,PEAK
1) CSS TYPE 2,JPEAK
1) RPEAK=PEAK
1) CSS IPEAK=JPEAK
1) C TYPES OUT EACH NEW PEAK AMPL.
**** File 2) M11A.F4[P11,LCS], Page 1 line 247
2) IF(JPEAK.LE.IPEAK)RETURN
2) TYPE 2,JPEAK
2) IPEAK=JPEAK
2) C TYPES OUT EACH NEW PEAK AMPL.
***************
**** File 1) M11A.F4[M11,LCS], Page 2 line 238
1) 2 FORMAT('+ AMPL=',F5.0,$)
1) CSS2 FORMAT('+ AMPL=',I4,$)
1) END
**** File 2) M11A.F4[P11,LCS], Page 1 line 253
2) 2 FORMAT('+ AMPL=',I4,$)
2) END
***************
1) M11A.F4[M11,LCS] and 2) M11A.F4[P11,LCS] 8-02-78 12:39 pages 2,1